with Ada.Assertions; use Ada.Assertions;

separate(Test_Headers_Parser)

--
-- test parse headers function
--

procedure Test_Parse_Headers
is

   Headers_Found : constant String := Headers_Parser_Pkg.Parse_Headers(

         Read_Test_Data_File );

begin

   Assert( GNAT.Regexp.Match( S => Headers_Found,
                              R => Test_Header_RegEx ),

           "Did not find expected header" );

   Assert( not GNAT.Regexp.Match( S => Headers_Found,
                                  R => Test_Html_RegEx ),

           "Found html in headers" );


end Test_Parse_Headers;

